home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 November / Chip Kasım 2000.iso / prog / share / 11 / setup.exe / %MAINDIR% / DEMOS / CIFTP / FTPEXP / about.frm (.txt) next >
Encoding:
Visual Basic Form  |  2000-09-07  |  4.5 KB  |  154 lines
  1. VERSION 4.00
  2. Begin VB.Form AboutBox 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "About FTP Explorer"
  6.    ClientHeight    =   5655
  7.    ClientLeft      =   1380
  8.    ClientTop       =   1035
  9.    ClientWidth     =   7005
  10.    DrawWidth       =   3
  11.    ForeColor       =   &H00000000&
  12.    Height          =   6060
  13.    Icon            =   "About.frx":0000
  14.    Left            =   1320
  15.    LinkTopic       =   "Form2"
  16.    LockControls    =   -1  'True
  17.    MaxButton       =   0   'False
  18.    MinButton       =   0   'False
  19.    NegotiateMenus  =   0   'False
  20.    ScaleHeight     =   5655
  21.    ScaleWidth      =   7005
  22.    Top             =   690
  23.    Width           =   7125
  24.    Begin VB.PictureBox CrescentLogo 
  25.       Appearance      =   0  'Flat
  26.       AutoSize        =   -1  'True
  27.       BackColor       =   &H80000005&
  28.       BorderStyle     =   0  'None
  29.       ForeColor       =   &H80000008&
  30.       Height          =   2505
  31.       Left            =   0
  32.       Picture         =   "About.frx":000C
  33.       ScaleHeight     =   2505
  34.       ScaleWidth      =   7080
  35.       TabIndex        =   2
  36.       Top             =   3180
  37.       Width           =   7080
  38.    End
  39.    Begin VB.CommandButton cmdOK 
  40.       Caption         =   "OK"
  41.       Default         =   -1  'True
  42.       Height          =   405
  43.       Left            =   5745
  44.       TabIndex        =   0
  45.       Top             =   2565
  46.       Width           =   1125
  47.    End
  48.    Begin VB.Image imgIcon 
  49.       Height          =   480
  50.       Left            =   225
  51.       Picture         =   "About.frx":13836
  52.       Top             =   135
  53.       Width           =   480
  54.    End
  55.    Begin VB.Line lneBox 
  56.       BorderColor     =   &H00FFFFFF&
  57.       Index           =   3
  58.       X1              =   5790
  59.       X2              =   5790
  60.       Y1              =   1050
  61.       Y2              =   1890
  62.    End
  63.    Begin VB.Line lneBox 
  64.       BorderColor     =   &H00808080&
  65.       Index           =   2
  66.       X1              =   1095
  67.       X2              =   1095
  68.       Y1              =   1065
  69.       Y2              =   1905
  70.    End
  71.    Begin VB.Line lneBox 
  72.       BorderColor     =   &H00FFFFFF&
  73.       Index           =   1
  74.       X1              =   1110
  75.       X2              =   5800
  76.       Y1              =   1890
  77.       Y2              =   1890
  78.    End
  79.    Begin VB.Line lneBox 
  80.       BorderColor     =   &H00808080&
  81.       Index           =   0
  82.       X1              =   1095
  83.       X2              =   5790
  84.       Y1              =   1050
  85.       Y2              =   1050
  86.    End
  87.    Begin VB.Label lblWarning 
  88.       BackStyle       =   0  'Transparent
  89.       Caption         =   $"About.frx":13C78
  90.       ForeColor       =   &H00000000&
  91.       Height          =   1035
  92.       Left            =   75
  93.       TabIndex        =   1
  94.       Top             =   2115
  95.       UseMnemonic     =   0   'False
  96.       Width           =   4785
  97.       WordWrap        =   -1  'True
  98.    End
  99.    Begin VB.Line lneSeparator 
  100.       BorderColor     =   &H00FFFFFF&
  101.       Index           =   1
  102.       X1              =   -240
  103.       X2              =   7910
  104.       Y1              =   2040
  105.       Y2              =   2040
  106.    End
  107.    Begin VB.Line lneSeparator 
  108.       BorderColor     =   &H00808080&
  109.       Index           =   0
  110.       X1              =   -135
  111.       X2              =   7910
  112.       Y1              =   2025
  113.       Y2              =   2025
  114.    End
  115. Attribute VB_Name = "AboutBox"
  116. Attribute VB_Creatable = False
  117. Attribute VB_Exposed = False
  118. Option Explicit
  119. Private Sub cmdOK_Click()
  120.     Unload Me
  121. End Sub
  122. Private Sub Form_Load()
  123.     CenterForm Me
  124. End Sub
  125. Private Sub Form_Paint()
  126.     Dim SysRes    As Integer
  127.     Dim PrintText As String
  128.     PrintText = "Progress Software Corporation FTP Explorer Version 1.0"
  129.     Me.CurrentY = 150
  130.     Me.CurrentX = 1100
  131.     Print PrintText;
  132.     PrintText = "Copyright " & Chr(169) & " 1996 Progress Software Corporation"
  133.     Me.CurrentY = 375
  134.     Me.CurrentX = 1100
  135.     Print PrintText;
  136.     PrintText = "This product is licensed to:"
  137.     Me.CurrentY = 750
  138.     Me.CurrentX = 1100
  139.     Print PrintText;
  140.     Me.CurrentY = 1150
  141.     Me.CurrentX = 1200
  142.     Print "Internet ToolPak Customer";
  143.     Me.CurrentY = 1375
  144.     Me.CurrentX = 1200
  145.     Print "Your Company";
  146.     PrintText = "Serial number:   00000000-00"
  147.     Me.CurrentY = 1600
  148.     Me.CurrentX = 1200
  149.     Print PrintText;
  150. End Sub
  151. Private Sub imgIcon_DblClick()
  152.     MsgBox "This software designed by Val", vbOKOnly, "HTTP Explorer"
  153. End Sub
  154.